Product year selection
ir_pop <- read_csv(str_c(datadir, "processed/ir_population_data.csv"), show_col_types = F)
selected_products <- NULL
selected_years <- NULL
# Get product year combinations
plot_specs <-
ir_pop %>%
select(product, year) %>%
unique() %>%
mutate(ir_pop = list(ir_pop), .before = everything()) %>%
{if (!is.null(selected_products)) filter(., source %in% selected_products) else .} %>%
{if (!is.null(selected_years)) filter(., year %in% selected_years) else .}
Density plots
Difference of UN Country Population and Product Country Population
## [[1]]

##
## [[2]]

##
## [[3]]

Ratio of UN Country Population and Product Country Population
## [[1]]

##
## [[2]]

##
## [[3]]
